home *** CD-ROM | disk | FTP | other *** search
- #[document 66.5787 88.8287 83.0213 105.221
- static oe="odd_even",nzw="nonzero_winding",wc="winding_counting";
- static stroked="stroked";
- static vert="vertical",horz="horizontal";
- static miter="miter",bevel="bevel",round="round";
- static butt="butt",proj="projected";
- #[page
- auto m=move,l=line,c=curve;
- auto p;
- gc_cspace("Lab");
- gc_color(100.0,0.0,0.0);
- rect(0,0,0,0);
- auto ng=draw(path());
- auto s=array(ng);
- m(68.70,97.05);
- c(68.70,93.65,71.40,90.95,74.85,90.95);
- c(78.15,90.95,80.90,93.65,80.90,97.05);
- c(80.90,100.40,78.15,103.10,74.85,103.10);
- c(71.40,103.10,68.70,100.40,68.70,97.05);
- close_edge();
- p=path();
- gc_draw_style(stroked);
- gc_line_join_style(round);
- gc_stroke_width(3.00);
- gc_font_draw_style(0);
- gc_color(100.00,0.00,0.01);
- s[0]=draw(p);
- m(74.90,94.00);
- finish_edge();
- p=path();
- gc_stroke_width(2.00);
- gc_color(45.37,56.74,48.01);
- auto B=draw(p);
- gc_draw_style(nzw);
- gc_color(100.00,0.00,0.01);
- auto A=draw(p);
- auto C=draw(p);
- s[1]=A over (B out C);
- m(71.90,97.00);
- l(77.90,97.00);
- finish_edge();
- p=path();
- s[2]=draw(p);
- gc_draw_style(stroked);
- s[2]:=draw(p);
- s[1]:=s[2];
- m(77.90,97.00);
- finish_edge();
- p=path();
- gc_color(45.37,56.74,48.01);
- auto B=draw(p);
- gc_draw_style(nzw);
- gc_color(100.00,0.00,0.01);
- auto A=draw(p);
- auto C=draw(p);
- s[2]=A over (B out C);
- s[1]:=s[2];
- m(74.90,100.00);
- l(74.90,94.00);
- finish_edge();
- p=path();
- s[2]=draw(p);
- gc_draw_style(stroked);
- s[2]:=draw(p);
- s[1]over=s[2];
- s[0]over=s[1];
- page:=s[0];
- s=NULL;
- #]page
- #]document
-